home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / UN_AMOS_Doodle.AMOS / UN_AMOS_Doodle.amosSourceCode
AMOS Source Code  |  1995-12-30  |  996b  |  41 lines
  1. Rem ************************************ 
  2. Rem *          Example 16.2            * 
  3. Rem *          AMOS Doodle             *   
  4. Rem *    (c) Mandarin / Jawx 1990      * 
  5. Rem ************************************ 
  6. Rem
  7. Rem Define menu title
  8. Menu$(1)=" Shapes  "
  9. Menu$(1,1)="Point   "
  10. Menu$(1,2)="Circle  "
  11. Menu$(1,3)="Ellipse "
  12. Menu$(1,4)="Bar     "
  13. Menu$(2)=" Colour "
  14. Rem Create a colour bar
  15. For C=1 To 16
  16.    Menu$(2,C)="(IN 1,"+Str$(C)-""+")(BA 60,10)"
  17. Next C
  18. Rem Start menu 
  19. Menu On 
  20. Rem Set up screen
  21. TYPE=1 : Curs Off : Cls 0
  22. Do 
  23.    Rem Check menu 
  24.    If Choice
  25.       Rem If shape menu  
  26.       If Choice(1)=1
  27.          TYPE=Choice(2)
  28.       Else 
  29.          Rem If Colour menu 
  30.          Ink Choice(2)
  31.       End If 
  32.    End If 
  33.    Rem Draw object
  34.    If Mouse Key
  35.       X=X Screen(X Mouse) : Y=Y Screen(Y Mouse)
  36.       If TYPE=1 : Plot X,Y : End If 
  37.       If TYPE=2 : Circle X,Y,10 : End If 
  38.       If TYPE=3 : Ellipse X,Y,5,20 : End If 
  39.       If TYPE=4 : Bar X,Y To X+10,Y+10 : End If 
  40.    End If 
  41. Loop